home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pcsecu1a / disablec.bas < prev    next >
BASIC Source File  |  1999-05-29  |  671b  |  18 lines
  1. Attribute VB_Name = "DisableCTRL"
  2. Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  3.     Public Const SPI_SCREENSAVERRUNNING = 97
  4. Public Sub Disable_Ctrl_Alt_Del()
  5.     'Disables the Crtl+Alt+Del keys
  6.     Dim AyW As Integer
  7.     Dim TurFls As Boolean
  8.     AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, TurFls, 0)
  9. End Sub
  10. Public Sub Enable_Ctrl_Alt_Del()
  11.     'Enables the Crtl+Alt+Del Keys
  12.     Dim AwY As Integer
  13.     Dim TurFls As Boolean
  14.     AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, TurFls, 0)
  15. End Sub
  16.  
  17.  
  18.